set nom_image "tele_dora.gif"

source fct_source.tcl

##### Variables globales pour les fichiers de lecture écriture
set fichier_lecture [open pipe1 r]
fconfigure $fichier_lecture -buffering line -blocking 0
set fichier_ecriture [open pipe2 w]
fconfigure $fichier_ecriture -buffering line -blocking 0

set table_joueurs [list [list [list 10 10 10 5 0 0 34 10 Dora 1224431]]]

set table_ast [list [list ]]

set prescale_creation_ast 0

proc boucle {} {
    global prescale_creation_ast
    
	algo_time_out_envoie
	recevoir
    recevoir
    #Maj_vitesse_joueur
    Maj_Position_Joueur
    
    algo_gestion_ast
    
    if {$prescale_creation_ast == 80} {
        algo_creation_ast
        set prescale_creation_ast 0
    }
    incr prescale_creation_ast
    
    MajEcran
    
    after 100 boucle
}

boucle


after 1000
